home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 August / 1984-08.d64 / balloon blitz_64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  6KB  |  159 lines
  1. 1 print"[147]":gosub100
  2. 2 if bo=0then 50
  3. 3 a=peek(56320):ifa=123thenx=x-s
  4. 4 ifa=119thenx=x+s:ifa=123thenx=x-s
  5. 5 ifx>255thenx=22
  6. 6 ifx<22thenx=255
  7. 7 pokev+12,x
  8. 8 z=z-1.5*d:ifz<24thenz=255
  9. 9 ifz>255thenz=24
  10. 10 pokev+6,z
  11. 11 cm=cm+h:pokev+4,cm:pokev+14,cm+25:ifcm=204thenh=h*-1
  12. 12 ifcm=24thenh=h*-1
  13. 13 geta$:t=val(a$):ift>0andt<10thenprint"";tab(13)"speed ";t;"":s=t/1.75
  14. 14 ifa>117thengoto3
  15. 15 fori=mtom+24:pokei,0:next:pokem+24,15:pokem+5,31:pokem+6,0:pokem+4,35
  16. 16 bo=bo-1:print"":printtab(34)bo;"[157]  "
  17. 17 d=int(rnd(1)*ds+0):d=d-sub:pokev+30,0:pokev+3,90:pokev+2,x
  18. 18 fori=1to12
  19. 19 a=peek(56320):ifa=119ora=103thenx=x+s
  20. 20 ifa=123ora=107thenx=x-s
  21. 21 ifx>255thenx=22
  22. 22 ifx<22thenx=255
  23. 23 pokev+12,x
  24. 24 z=z-1.5*d:ifz>255thenz=24
  25. 25 ifz<24thenz=255
  26. 26 pokev+6,z
  27. 27 cm=cm+h:pokev+4,cm:pokev+14,cm+25:ifcm=24thenh=h*-1
  28. 28 ifcm=204thenh=h*-1
  29. 29 pokev,205:pokev+3,90+i*10:col=peek(v+30):ifcol=142orcol=206thengoto33
  30. 30 pokem,240-i*5:pokem+1,240-i*5:next
  31. 31 pokem,0:pokem+1,0:pokem+4,0:d=int(rnd(1)*ds+0):d=d-sub
  32. 32 pokev+2,0:mi=mi+1:printtab(34)"";mi:goto2
  33. 33 poke2043,203:pokev+2,0:pokev+28,57:pokem,255:pokem+1,4:pokem+2,0
  34. 34 pokem+3,8:pokem+5,63:pokem+6,90:pokem+4,129
  35. 35 fori=1to3:forj=1to30:pokev+42,j/10:next:next
  36. 36 pokev+28,49:pokev+30,0:poke2043,201:pokev+42,12:fori=mtom+24:pokei,0:next
  37. 37 d=int(rnd(1)*ds+0):d=d-sub
  38. 38 hi=hi+1:printtab(34)"";hi:goto2
  39. 50 av=hi/20
  40. 51 ifav>=.95then av$="**general**":goto57
  41. 52 ifav>=.85thenav$="  major  ":goto57
  42. 53 ifav>=.75thenav$=" captain ":goto57
  43. 54 ifav>=.50thenav$=" sergeant ":goto57
  44. 55 ifav>=.25thenav$=" corporal ":goto57
  45. 56 av$=" private "
  46. 57 print"          game over              "
  47. 58 fori=1to300:nexti
  48. 59 forj=1to20:print"[145]     rank: ";av$:fori=1to50:nexti
  49. 60 print"[145]     rank: [146]";av$:fori=1to50:nexti:nextj
  50. 61 print"[145]      another game(y/n)?        "
  51. 62 getan$:ifan$<>"y"andan$<>"n"then62
  52. 63 ifan$="n"thenpoke254,0:sys254
  53. 64 print"[145]  which level of play 1-6
  54. 65 [161]le$:[139]le$[179]"1"[176]le$[177]"6"[167]65
  55. 66 le[178][197](le$):[139] le[178]1 [167] ds[178]2:sub[178][171]1
  56. 67 [139] le[178]2 [167] ds[178]3:sub[178]0
  57. 68 [139] le[178]3 [167] ds[178]3:sub[178]1
  58. 69 [139] le[178]4 [167] ds[178]4:sub[178]2
  59. 70 [139] le[178]5 [167] ds[178]6:sub[178]3
  60. 71 [139] le[178]6 [167] ds[178]7:sub[178]4
  61. 72 d[178][181]([187](1)[172]ds[170]0):d[178]d[171]sub
  62. 73 x[178]150:y[178]130:s[178]1:z[178]0:bo[178]20:hi[178]0:mi[178]0:t[178]1
  63. 74 [129]i[178]m[164]m[170]24:[151]i,0:[130]
  64. 75 [153]"on             level ";le;"cmd           wait"
  65. 76 [153]"":[153][163]13)"speed  1"
  66. 77 [153]"":[153][163]35)"20"
  67. 78 [153][163]34)"   "
  68. 79 [153][163]34)"   "
  69. 80 [137]2
  70. 100 v[178]53248:m[178]54272:cm[178]24:cn[178]25:h[178].5:x[178]150:y[178]130:s[178]1:z[178]0:bo[178]20:hi[178]0:mi[178]0
  71. 101 [151]2040,204:[151]2041,202:[151]2042,205:[151]2043,201:[151]2044,204
  72. 102 [151]2045,204:[151]2046,200:[151]2047,205:[151]v,205:[151]v[170]1,200
  73. 103 [151]v[170]4,24:[151]v[170]5,63:[151]v[170]6,0:[151]v[170]7,205:[151]v[170]8,150:[151]v[170]9,170
  74. 104 [151]v[170]10,60:[151]v[170]11,183:[151]v[170]12,150:[151]v[170]13,80:[151]v[170]14,49:[151]v[170]15,57
  75. 105 [151]v[170]23,149:[151]v[170]28,49:[151]v[170]29,133:[151]v[170]37,13:[151]v[170]38,5:[151]v[170]39,9
  76. 106 [151]v[170]40,14:[151]v[170]41,15:[151]v[170]42,12:[151]v[170]43,9:[151]v[170]44,9:[151]v[170]45,14
  77. 107 [151]v[170]46,15:[151]53280,2
  78. 108 [129]i[178]0[164]24:[151]m[170]i,0:[130]
  79. 109 [151]m[170]5,85:[151]m[170]6,85:[151]m[170]12,85:[151]m[170]13,85:[151] 53280,2
  80. 110 [153]"load";[163]6)"  welcome to balloon blitz":[153]""
  81. 111 [151]m[170]24,15:[151]m[170]4,33:[151]m[170]11,17
  82. 112 [129]ff[178]1[164]6:[135]h1,l1,h2,l2:[151]m[170]1,h1:[151]m,l1:[151]m[170]8,h2:[151]m[170]7,l2
  83. 113 [153][163]9)"on ** your  mission ** "
  84. 114 [139]h1[178]50[167][129]t[178]1[164]200:[130]
  85. 115 [129]t[178]1[164]100:[130]
  86. 116 [153][163]9)"waiton ** your  mission ** ":[130]ff
  87. 117 [129]i[178]m[164]m[170]24:[151]i,0:[130]
  88. 118 [153]"cont  <patrol fields in a hot air balloon>"
  89. 119 [153]"  <destroy enemy tanks in your sector>"
  90. 120 [153]"        put joystick in port 2"
  91. 121 [153]"        push fire button to drop bombs"
  92. 122 [153]" control your speed with the number keys":[153] [163]16)"1=slowest"
  93. 123 [153][163]16)"9=fastest":[153][163]12)"one moment please"
  94. 124 [129] i[178]0 [164] 5:[129] n[178]0 [164] 62:[135] q:[151] 12800[170](i[172]64)[170]n,q:[130]:[130]
  95. 125 [129]i[178]1[164]10:[161]a$:[130]
  96. 126 [153]"on     enter level of play 1 through 6 "
  97. 127 [153][163]16)"1=easiest":[153][163]16)"6=hardest"
  98. 128 [161] le$:[139] le$[179]"1"[176] le$[177]"6"[167]128
  99. 129 a$[178]"1":le[178][197](le$)
  100. 130 [139] le[178]1 [167] ds[178]2:sub[178][171]1
  101. 131 [139] le[178]2 [167] ds[178]3:sub[178]0
  102. 132 [139] le[178]3 [167] ds[178]3:sub[178]1
  103. 133 [139] le[178]4 [167] ds[178]4:sub[178]2
  104. 134 [139] le[178]5 [167] ds[178]6:sub[178]3
  105. 135 [139] le[178]6 [167] ds[178]7:sub[178]4
  106. 136 d[178][181]([187](1)[172]ds[170]0):d[178]d[171]sub
  107. 137 [153]"load": [151] 53280,0:[151] 53281,0
  108. 138 [129] i[178]1 [164] 17
  109. 139 [153]"                                wait"
  110. 140 [130]
  111. 141 [153][163]21)"onstep(NULL)"
  112. 142 [153]"                                wait"
  113. 143 [153][163]21)"onstep(NULL)step  (NULL)step(NULL)"
  114. 144 [153]"                                wait"
  115. 145 [153][163]20)"onstep(NULL)step  (NULL)  (NULL)  (NULL)"
  116. 146 [153]"                                wait"
  117. 147 [153][163]19)"onstep (NULL)    (NULL)(NULL)    "
  118. 148 [153]"print                                wait"
  119. 149 [153][163]19)"onstep      (NULL)"
  120. 150 [153]"print                                wait"
  121. 151 [153]"print                                wait"
  122. 152 [153]"frefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrefrewait"
  123. 153 [153]"            level:";le;"cmd            wait"
  124. 154 [129] i[178]0 [164] 31
  125. 155 [151] 1984[170]i,160
  126. 156 [151] 56256[170]i,5
  127. 157 [130]
  128. 158 [153] "";[163]33)"bombs"
  129. 159 [153] [163]33)"left"
  130. 160 [153] [163]33)"hits"
  131. 161 [153] [163]33)"miss"
  132. 162 [153] [163]13)"speed  ";a$;""
  133. 163 [153]"";[163]35)"20"
  134. 164 [151]v[170]21,255
  135. 165 [142]
  136. 200 [131]25,30,18,209,33,135,25,30,42,62,31,165,50,60,37,162,42,62,31,165,50,60
  137. 201 [131]37,162
  138. 202 [131] 0,127,0,1,255,192,3,255,224,3,255,224
  139. 203 [131] 7,255,240,7,255,240,7,255,240,3,255,224
  140. 204 [131] 3,255,224,3,255,224,2,255,160,1,127,64
  141. 205 [131] 1,62,64,0,156,128,0,156,128,0,73,0,0,73,0
  142. 206 [131] 0,62,0,0,62,0,0,62,0,0,28,0
  143. 207 [131] 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  144. 208 [131] 127,224,63,255,224,63,255,224,0,127,224,0,63,192,63,255,252
  145. 209 [131] 127,255,254,255,255,255,255,255,255,127,255,254,63,255,252
  146. 210 [131] 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  147. 211 [131] 0,0,0,0,0,0,0,0,0,0,102,0,0,126,0,0,60,0,0,60,0,0,60,0,0,60,0,0,60
  148. 212 [131] 0,0,24,0
  149. 213 [131] 10,170,160,42,170,168,170,170,170,170,170,170,170,170,170,170,170,170
  150. 214 [131]170,170,170,170,170,170,170,170,170,42,255,42,29,170,56,0,170,0
  151. 215 [131] 0,170,0,0,170,0,0,170,0,0,170,0,0,170,0,0,170,0,97,170,134,170,170
  152. 216 [131] 170,42,170,168
  153. 217 [131] 0,60,0,0,255,0,3,255,192,15,253,240,15,63,240,63,255,252,63,255,252
  154. 218 [131] 63,247,220,63,255,252,63,247,220,61,255,252,63,255,252,15,255,240
  155. 219 [131] 15,247,240,3,255,192,0,40,0,0,40,0,0,40,0,0,40,0,0,40,0,0,40,0
  156. 220 [131] 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,255
  157. 221 [131] 224,31,255,248,63,255,252,127,255,254,255,255,255,255,255,255,255
  158. 222 [131] 255,255,127,255,254,63,255,252,31,255,248,7,255,224
  159.